home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / demos / txt / helloworld.mod < prev    next >
Text File  |  1993-11-04  |  474b  |  29 lines
  1. (*
  2.  * Das obligatorische, ultimative Programm...
  3.  * Diesmal etwas komplexer...
  4.  *)
  5. MODULE HelloWorld;
  6.  
  7. FROM Hello IMPORT text, WriteWithIndent;
  8.  
  9.  
  10. PROCEDURE TuEsJetzt;
  11. VAR
  12.   i: CARDINAL;
  13. BEGIN
  14.   FOR i:=1 TO 4 DO
  15.     WriteWithIndent(i+10,text);
  16.   END;
  17.   FOR i:=4 TO 1 BY -1 DO
  18.     WriteWithIndent(i+10,text);
  19.   END;
  20. END TuEsJetzt;
  21.  
  22.  
  23. BEGIN
  24.   WriteWithIndent(2,"(Modul HelloWorld startet.)");
  25.   TuEsJetzt;
  26. CLOSE
  27.   WriteWithIndent(2,"(Modul HelloWorld endet.)");
  28. END HelloWorld.
  29.